home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / enigma / earcd / utility / utilcli / mscclcmd.lha / Examples / WormsShuffle < prev   
Text File  |  1996-10-01  |  491b  |  22 lines
  1. .bra {
  2. .ket }
  3. FailAt 21
  4. Work:Games/Originale/Worms
  5. Delete >NIL: TWCUSTOM/#?
  6. SetENV LineNum 1
  7. List >T:FileList ALLCUSTOM LFORMAT "%s"
  8. Lab Loop
  9.   GetLine >ENV:ListEntry T:FileList $WormsLineNum
  10.   If ERROR
  11.     SetENV WormsLineNum 1
  12.     Skip Back Loop
  13.   EndIf
  14.   Copy "ALLCUSTOM/$ListEntry" TWCUSTOM CLONE QUIET
  15.   Inc ENV:LineNum
  16.   Inc ENV:WormsLineNum
  17.   If VAL 26 GE $LineNum
  18.     Skip Back Loop
  19.   EndIf
  20. Delete ENV:Dummy ENV:ListEntry ENV:FileList ENV:LineNum QUIET
  21. Copy ENV:WormsLineNum ENVARC:
  22.